home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / Example30.AMOS / Example30.amosSourceCode < prev   
AMOS Source Code  |  1992-02-26  |  655b  |  29 lines
  1. '================= 
  2. 'Example 30
  3. '================= 
  4. '
  5. 'Storing an executable program in an Amos bank 
  6. 'and using it. 
  7. '
  8. 'This program has PPMore stored in bank 10 
  9. 'We will copy the program from bank 10 to the Ram disk 
  10. ' and then run it by giving it a text file to load.
  11. 'The file is Help.txt found on this disk.
  12. '===================================================== 
  13. '
  14. 'Copy PPMore from bank 10 to Ram:
  15. Bsave "ram:ppmore",Start(10) To Start(10)+Length(10)
  16. '
  17. 'Show Workbench screen 
  18. Amos To Back 
  19. '
  20. 'execute PPMore
  21. COMMAND$="ram:ppmore df0:help.txt"
  22. Dreg(1)=Varptr(COMMAND$)
  23. Dreg(2)=0
  24. Dreg(3)=0
  25. XEXECUTE=Doscall(-222)
  26. '
  27. 'Back to Amos
  28. Amos To Front 
  29. Stop